/* vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4: */
/* Copyright (C) 2012 Zongyou Yao. All rights reserved.     */

#include <stdlib.h>
#include <stdio.h>
#include "assert.h"
#include "except.h"

except_frame *except_stack = NULL;
void except_raise(const except_t *e, const char *file, int line)
{
#ifdef WIN32
    except_frame *p;

    if (except_index == -1) {
        except_init();
    }
    p = TlsGetValue(except_index);
#else
    except_frame *p = except_stack;
#endif
    assert(e);
    if (p == NULL) {
        fprintf(stderr, "Uncaught exception");
        if (e->reason) {
            fprintf(stderr, " %s", e->reason);
        } else {
            fprintf(stderr, " at 0x%p", e);
        }
        if (file && line > 0) {
            fprintf(stderr, " raised at %s:%d\n", file, line);
        }
        fprintf(stderr, "aborting...\n");
        fflush(stderr);
        abort();
    }
    p->exception = e;
    p->file = file;
    p->line = line;
#ifdef WIN32
    except_pop();
#else
    except_stack = except_stack->prev;
#endif
    longjmp(p->env, except_raised);
}

#ifdef WIN32
_CRTIMP void __cdecl _assert(void *, void *, unsigned);
#undef assert
#define assert(e) ((e) || (_assert(#e, __FILE__, __LINE__), 0))

int except_index = -1;
void except_init(void)
{
    BOOL cond;

    except_index = TlsAlloc();
    assert(except_index != TLS_OUT_OF_INDEXES);
    cond = TlsSetValue(Except_index, NULL);
    assert(cond == TRUE);
}

void except_push(except_frame *fp)
{
    BOOL cond;

    fp->prev = TlsGetValue(Except_index);
    cond = TlsSetValue(Except_index, fp);
    assert(cond == TRUE);
}

void except_pop(void)
{
    BOOL cond;
    except_frame *tos = TlsGetValue(except_index);

    cond = TlsSetValue(except_index, tos->prev);
    assert(cond == TRUE);
}
#endif
